(timeclock-find-discrep): Set `timeclock-last-event-workday' if it's

still nil.

diff --git a/lisp/calendar/timeclock.el b/lisp/calendar/timeclock.el
index 53ff1277139dc88f6ea0551b53e3e13b0f0ecc8e..2cd06f3ac6b0825967284fcd5822c4f16c8ca544 100644 (file)
--- a/lisp/calendar/timeclock.el
+++ b/lisp/calendar/timeclock.el
@@ -1077,6 +1077,8 @@ See the documentation for the given function if more info is needed."
                    timeclock-workday))
            (forward-line))
          (setq timeclock-discrepancy accum))))
+    (unless timeclock-last-event-workday
+      (setq timeclock-last-event-workday timeclock-workday))
     (setq accum timeclock-discrepancy
          elapsed timeclock-elapsed)
     (if timeclock-last-event